home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DEMONSTR / TIMWIN.ZIP / DFRD.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  3KB  |  124 lines
  1. ;
  2. ;   TIM - DEMO        0.4    DFRD
  3. ;
  4. ;****************************************************
  5. #include helpdefs.h
  6.  
  7. parms
  8.  int windisplay
  9.  file timdemo
  10.  int hmode
  11. endparms
  12. int choice
  13. int autorun = 0
  14. int err
  15.  
  16. on error goto ermsg
  17.  
  18. repeat          ;repeat ... until
  19. if autorun == 0
  20.  cls
  21.  print @8 @i "      <<TIM>> DEMO          FREE RUNNING DEMO'S           " @n @r
  22.  print @8 "To the previous menu  . . . . . . . . . . . . . . . . .0", @r
  23.  print @8 "HOLO       - (pre)processing a hologram image . . . . .1"
  24.  print @8 "PARTS      - classifying electronic components  . . . .2"
  25.  print @8 "RNOISE     - removing shot noise from an image. . . . .3"
  26.  print @8 "LABEL      - sorting objects. . . . . . . . . . . . . .4"
  27.  print @8 "SWITCH     - performing good/bad tests. . . . . . . . .5"
  28.  print @8 "FILL       - filling up holes in objects. . . . . . . .6"
  29.  print @8 "DISTORT    - geometrical distortion using general i.p. 7"
  30.  print @8 "MAZE       - find a path through the maze . . . . . .  8"
  31.  print @8 "DISTRANS   - application of distance transforms . . .  9"
  32.  print @8 "AUTORUN    - run all demo's continuously . . . . . . .10" @r
  33.  ;print @8 "INTERFERO  - analysis of interferograms . . . . . . . 11"
  34.  ;print @8 "LABEL256   - labeling more than 256 objects . . . . . 13", @r   
  35.  choice = "        Enter your choice . . . . . . . . . . . . . . . . .   "
  36. else
  37.   choice = ((choice % 10) + 1)
  38. endif
  39.  
  40.  cls
  41.  zoom 0
  42.  /init
  43.  dest p
  44. ; *windispl h (windisplay+1)
  45. ; *windispl i (windisplay+1)
  46.  
  47.  switch choice
  48.    case 1
  49.        copy holo a
  50.        help timdemo DfrdHolo, hmode
  51.        *dholo windisplay timdemo hmode
  52.  
  53.    case 2
  54.      copy parts a
  55.        help timdemo DfrdParts, hmode
  56.        *dparts  windisplay
  57.  
  58.    case 3
  59.     dest a
  60.     cstr miss
  61.     help timdemo DfrdRnoise, hmode
  62.     *rnoise   windisplay
  63.  
  64.    case 4
  65.      copy cermet a
  66.        help timdemo DfrdLabel, hmode
  67.        *label2  windisplay
  68.  
  69.    case 5
  70.        copy bswitch
  71.        help timdemo DfrdSwitch, hmode
  72.        *switchd  windisplay
  73.        *switch1  windisplay
  74.  
  75.    case 6
  76.      help timdemo DfrdFill, hmode
  77.      *dfill
  78.      /selut 4
  79.      *dfill1  windisplay
  80.      call waitres
  81.      *dfill2  windisplay
  82.  
  83.    case 7
  84.      copy miss a
  85.        help timdemo DfrdDistort, hmode
  86.        *distort   windisplay
  87.        call waitres
  88.        *dspaak windisplay
  89.  
  90.    case 8
  91.      *dmaze windisplay timdemo DfrdMaze hmode
  92.  
  93.    case 9
  94.      copy muntsq a
  95.         help timdemo DfrdDistrans, hmode
  96.         *dcoins   windisplay
  97.    case 10
  98.      autorun = 1
  99.  endsw
  100.  call waitres
  101. until choice == 0
  102.  
  103. stop
  104.  
  105. ermsg:
  106.   beep
  107.   seterror "\nImage not found."
  108.   wait
  109. stop
  110.  
  111.  
  112. waitres:
  113.   if (choice > 0) && (choice < 10)
  114.     if autorun == 0
  115.        pause
  116.        print @z
  117.     else
  118.        wait 5
  119.     endif
  120.   endif
  121.   return
  122.  
  123.      
  124.